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Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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® 

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
: SOUR PEREOAS MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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* 

0 ON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ‘ 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT : 
® 

* 

* 

® 

* 

® 
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BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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Author Brian Porter Creation date 21-JUL-1981 


as 
Functional description: 


WAIWWNIYIPonofonofo 


ae 
USUN—OO0OnNOu 


This file is a collection of routines that support the VAX-11 
family of UBA adapters. The routines are used by device-specific 
modules to display datapath and map register information. 


Modified by: 


vO3-003 EAD0109 Elliott A. Braxton 55-Mar-1984 
Deleated ‘common mrd‘ from DW780_MAPPING. 


v03-002 SARO158 Sharon A. Reynolds, 13-0c t-1983 
Saded on SYE update that makes all register heralds 
generic. 


v03-001 SARO101 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 


v02-003 BP0003 Brian Porter 28-SEP-1981 
Corrected 11/722 mapping register decoding. 


BP0002 Brian Porter, 31-AUG-1981 
Added call to compress4 in appropriate places. Corrected 
dw mapping register code. 


v02-001 BP0001 Brian Porter, 24-AUG-1981 
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ee 0:67]? VAX=11 FORTRAN 3.8" 
7:24:16 : CERF .SRCJUBA.FOR;1 


DISKSVMSMASTER 
C Added 11/7zz support. 


So 
Oo 
o 
* 
e 


| 
¢*= j 
Goss subroutine uba_datapath (lun,datapath_number ,datapath_register) 
0066 
0067 
0068 c++ 
34 ¢ This routine dispatches to the correct display module for 
0 C UBA datapath registers. 
0071 cee 
pOrs 
007 
gore include ‘src$:msghdr.for /nolis<' 
gi 
0135 byte lun 
bi 38 
4 i integer*4 datapath_register 
0139 integer*4 datapath_number 4 
0141 integers compress4 00 
pis6 00 
014 00 
0144 00 
0145 if ¢ 00 
0146 LibSextzv(24,8,emb$l_hd_sid) .eq. 255 88 
oO « 
0148 1 LibSextzv(24,8,emb$l_hd_sid) .eq. 1 00 
0149 1) then 89 
Olas call dw780_datapath (lun,datapath_number ,datapath_register) 4 
0138 else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 2) then a8 
0135 call dw750_datapath (lun,datapath_number ,datapath_register) aoe 
0137 else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 3) then ae 
o189 call dw7zz_datapath (lun,datapath_number) 094 
c 
161 c for future UBA support the ELSE-IF-THEN should be expanded at 
166 c this point. 
ee 
165 else 005 
166 5 
16 call Linchk (lun,2) ; 
189 write(lun,5) ‘DATAPATH #',datapath_number,'.', 3 
170 1 datapath register 5 
171 5 format(/* *,a,i<compress4 (datapath_number)>,a,t24,28.8) 5 
172 endif 005 


UBA_DATAPATH Ig-e Sep-1984 90: 3: 717 VAX=11 FORTRAN Page 3 


see 

-Sep-1984 4:16 DISKSVMSMASTER: CERF .SRCJUBA.FOR;1 
173 
174 return 
175 


176 end 


Name Bytes Attributes 
0 SCODE 242 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 41 fie CON REL LCL SHR NOEXE RD NOWRT LONG 
; SLOCAL 84 PIC CON REL LCL NOSHR NOEXE R WRT LONG 
512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 879 


ENTRY POINTS 
Address Type Name 


0-00000000 UBA_DATAPATH 
VARIABLES 
Address Type Name Address Type Name 
$—-ponnnonge I*4 DATAPATH_NUMBER AP-0000000Ca I1*4 sags REGISTER 
-00000000 I*4 EMBS$L_HD_SID 3-00000004 I*2 EMBS$W_HD_ENTRY 
3-O000000E I*2 EMBSW_HD_ERRSEQ AP-00000004@ L*1 LUN 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 


L*1 EMB 512 (0:511) 
-00000006 I*4 EMBSQ_HD_TIME 8 (2) 
LABELS 
Address Label 
1-00000017 5° 


| 
PROGRAM SECTIONS 


12 
UBA_DATAPATH 18-Sep-1984 00:29:17 VAX=11 FORTRAN ¥3.4-56 Page 4 
jo3eor 19g Migeilg = DTSSvmSMASteR:LeRe.secaua.ror:1 2° 
| 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 


1*4 COMPRESSS DW750_DATAPATH pyre DATAPATH 


DW7Z7Z_DATAPATH 1*4 LIBSERTZV R 
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subroutine dw780_datapath (lun,datapath_number ,datapath_register) 


c++ 


C This routine displays the 11/780 DW780 datapath register. 
t-- 


byte lun 

integer*4 datapath_register 

integert4 datapath_number 

character*22 vidpr (30:31) 

data vidpr (30) /"BUFFER TRANSFER ERROR*'/ 
data vidpr (31) /"BUFFER NOT EMPTY®'/ 
integer*4 compress4 

integer*4 LibSextzv 


call Linchk (lun,2) 


write(lun,5) ‘''DW'' DPR #',datapath_number,'.' datopesh register 
5 format(/* ',t8,a,i<compress4 (datapath_number)>,a,t24,28. ) 


selected_map = LibSextzv (7,9,datapath_register) 
call Linchk (lun,1) 


write(lun,10) "MAPPING REGISTER #',selected_map,'.' 
10 format(* ',t40,a,i<compress4 (selected_map)5,a 


do 20,i = 0,7 
if (LibSextzv ((i+16),1,datapath_register) .eq. 1) then 
call Linchk (lun,1) 
15 write(lun,15) "BUFFER #°,i,°. NOT EMPTY’ 
secgees -t40,a,i1.1,a) 


20 continue 


integer*4 selected_map 
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DW780_DATAPATH 


Name Bytes 
ODE 409 

1 SPDATA 138 
SLOCAL 264 
Total Space Allocated 811 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
DW780_DATAPATH 


VARIABLES 
Address Type 


amsanye | 


-0000002C 14 


Name 
DATAPATH_NUMBER 
SELECTED_MAP 


ARRAYS 
Address Type Name 
2-00000000 CHAR V1IDPR 44 


12 
1B-Sep~1964 0052941 


On 


H if (LibSextzv (29,1,datapath_register) .eq. 1) then 
1 call Linchk (lun,1) 
as peltechenega cap meu 
0966 endif 
s¥e4 call output (lun,datapath_register,vidpr,30,30,31,'0') 
9 return 
O07) end 


Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Address Type Name 


AP-0000000C@ I1*4 DATAPATH_REGISTER 
AP-00000004@ L*1 LUN 


Bytes Dimensions 
(30:31) 


VAX=11 FORTRAN 5 
DISKSVMSMASTER: CERF .SRCJUBA.FOR; 1 


DW780_DATAPATH 
LABELS 
Address Label Address Label 
1-00000056 5° 1=0000006A 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
I*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


2 


1f-}p-1984 90:29:17 


Address Label Address Label 
1-00000078 15° ee 20 
Type Name Type Name 

LINCHK OUTPUT 


VAX=11 FORTRAN 3.4-56 Pa 
SEKSUMGRASTER: PERE eecaUBA.FoR:1 29° 


Address Label 
1-00000083 25° 
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a 
2 subroutine dw750_datapath (lun,datapath_number ,datapath_register) 
sie : This routine displays the 11/750 DW750 datapath register. 
0010 
11 
Oot byte lun 
Bete integer*4 datapath_number 
Bote integert4 datapath_register 
0018 integer*4 ress4 
0019 ° ‘ips 
oo character*6 vidpr (0:0) 
oo § data vidpr (0) /*OURGE*'/ 
+ : character*20 v2dpr (29:31) 
e8 $ data v2dpr (29) /*ERROR*'/ 
a8 : data v2dpr (30) /*NON-EXISTENT MEMORY*'/ 
ts data v2dpr (31) /"UNCORRECTABLE ERROR*'/ 
tT} 
003 
74 call Linchk (lun,2) 
$038 write(lun,5) ‘"DW'’ BDP #',datapath_number,'.' dotapgth register 
sit f4 5 format(/* ',t8,a,i<compress4 (datapath_number)>,a,t24,28. ) 
site call output (lun,datapath_register,vidpr.0,0,0,'0") 
sry call output (lun,datapath_register,v2dpr,29,29,31,'0") 
D048 return 
Sods end 


| 
| 
| 
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DW750_DATAPATH 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 DW750_DATAPATH 


VARIABLES 
Address Type Name 
427909000448 Is DATAPATH NUMBER 
ARRAYS 
Address Type Name 


2-00000000 CHAR VIDPR 
2-00000006 CHAR V2DPR 


LABELS 
Address Label 
1-0000001D 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
1*4 COMPRESS4 LINCHK 


ifSen-1984 0: 


Bytes Attributes 


155 PIC CON REL LCL SHR EXE 

49 PIC CON REL LCL SHR NOEXE 
244 + =PIC CON REL LCL NOSHR NOEXE 
448 


Address Type Name 


9:17 
4:16 


RD NO 
RD NO 
RD 


VAX-11_ FORTRAN th 4 
DISKSVMSMASTER: CERF 


WRT LONG 
WRT LONG 
WRT LONG 


AP=0000000C@ I1*4 DATAPATH_REGISTER 


Bytes Dimensions 


6 (0:0) 
60 (29:31) 


Type Name 
OUTPUT 


Page 


if SepH198G $aiSei16 — DISKSVMGMASTER:LERF.SecluBA.or;1 P2Ge 1° 


Bee subroutine dw7zz_datapath (lun,datapath_number) 
000 c++ 
8 
9 cer 
0010 
0041 
pois byte lun 
pote integers4 datapath_number 
0016 integers4 compress4 
0017 
0018 
0019 
Base call Linchk (lun,3) 
00 g write(lun, 5) *'Dw'’ BDP #',datapath_number,'. ASSIGNED TO QI0 REQUEST’ 
8 ? 5 format(/* ',t8,a,i<compress4 (datapath_number)>,a,/) 
0025 return 
0026 
0027 end 


] 
| 
0 ¢ This routine displays the 11/722 DW7zz datapath register. 
PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 106 PIC CON REL LCL SHR EXE RD NOWRT LONG 
2 SLOCAL 23 Pie CON REL LCL NOSHR NOEXE RD 'URT Lone 
Total Space Allocated 201 
ENTRY POINTS 
Add:ess Type Name 
0-00000000 DW722_DATAPATH 
VARIABLES 
Address Type Name Address Type Name 


2-000000008 1*4 DATAPATH_NUMBER AP-00000004@ L*1 LUN 


OW722_DATAPATA WB-Sep-1984 90:29:17 WAK-I1 FORTRAN VB.4=56 9 og, Page 11 
LABELS 
Address Label 


1-00000027 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
1*4 COMPRESS4 LINCHK 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


1§-$e ~Sep-1984 
$p-1986 1410s 16 
subroutine uba_mapping (lun,map_number ,mapping_register) 

This routine dispatches to the correct display module for 


UBA mapping registers. 


include ‘src$:msghdr.for /nolist' 


byte lun 
integer*4 map_number 
integer*4 mapping_register 


integer*4 compress4 


f ¢ 
LibSextzv (24,8,emb$l_hd_sid) .eq. 255 
or 
(7 


i 
: 
1 Libsextav (24,8,emb$l_hd_sid) .eq. 1 
1) then 


call dw780_mapping 
else if (LiiSextzv 
call dw750_mapping 
else if (LibSextzv 
call dw7zz_mapping 


0098 


S3e33 


this point. 


else 


(Lun,map_number ,mapping_register) 
(24,8,emb$l_hd_sid) .eq. 2) then 
(Lun,map_number ,mapping_register) 
(24,8,emb$l_hd_sid) .eq. 3) then 
(Lun,map_number ,mapping_register) 


for future UBA support the ELSE-IF-THEN should be expanded at 


call Linchk (lun,2) 


write(lun, 9) "MAP REGISTER #* ,map_number,' nape ine_regtater 
5 format(/" ‘,a,i<compress4 (map_ ap cuare’s tals 8) 


SOOSOSOSOOSOOOOOOSDO 

ee et ed et a = ss = a = 

3 -OOOO09000 

DRAW =OSSUE REALS 
aaoan 
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00¢ 
00¢ 
00<¢ 
00¢ 
00: 
003 
00: 
00; 
00: 
003 
00: 
003 
00: 
00: 
004 
004 
i 
004 
004 
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LABELS 
Address Label 
1-0000001B 5° 


p116 endif 
011 
0118 return 
IBS 4 
120 end 
0 
PROGRAM SECTIONS 8 
Name Bytes Attributes 8 
0 $CODE 267 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 45 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 0 
2 SL aCe. 72. ~=PIC CON REL tet NOSHR NOEXE RD WRT LONG 0 
3 E 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
Total Space Allocated 876 4 
0 
ENTRY POINTS 6 
Address Type Name 
0-00000000 UBA_MAPPING 8 
0 
VARIABLES 9 
Address Type Name Address Type Name 0 
3-00000000 ae. _HD_SID 3-00000004 I*2 EMBSW_HD_ENTRY 
3-0000000E is3 cMbSW-HD_ERRSEQ AP-00000004a L*1 N 
AP-0000000Ca@ 1 MAPPING_REGISTER 2-00000000@ I*4 MAP_NUMBER 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 L*1 EMB 512 (0:511) 
-00000006 I*4 EMBS$Q_HD_TIME 8 (2) 
| 
| 
| 
| 


UBA_MAPPING 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
1*4 COMPRESS4 


Type Name 
DW750_MAPPING 


Type Name 
DW780_MAPPING 


if Seectaes 00:38:17 


Type Name 
DW7Z2_MAPPING 


Vv 
Dd 


—> 
xe 


Type Name 
I*4 LIBSEXTZV 


CJUBA.FOR;1 


Type Name 
LINCHK 


Page 


14 


tani 


FUN 


SES 4 


H 13 
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4 4:16 DISKSVMSMASTER: CERF .SRCJUBA.FOR;1 


subroutine dw780_mapping (lun,map_number ,mapping_register) 


eee 


if (LibSextzv (31,1,mapping_register) .eq. 1) then 
pfn = LibSextzv (0,21,mapping_register) 

if (pfn .ne. 0) then 

call Linchk (lun,1) 


NOUS WN —OOONOUES WN —O 0 


PADMA 


SSss8ssss 


7 
B c++ 
49 c This routine displays the 11/780 DW780 mapping register. 
¢*e 

0011 

pols 

001 byte Lun 

0014 

Bole integer*4 map_number 

iE integer*4 mapping_register 

0019 integer4 pfn 

0020 

0021 integer*4 dpr 

Boss 

O0g integers4 compress4 

0024 

0025 character*12 vime (25:25) 

0026 

5 34 common /mrd/  vimr 

94 data vimr (25) /*BYTE OFFSET*®'/ 

ait character*19 vemr (31:31) 

0038 common /mrd/  v2mr 

st ¥4 data v2mr (31) /"MAP REGISTER VALID*®'/ 

0037 

it call Linchk (lun,1) 

Boe if (map_number .eq. -1) then 

004 write(lun,3) *'Dw'’ MPR #222" ,mapping_register 

004 3 format(* °,t8,a,t24,28.8) 

4 else 

004 write(lun,5) *'Dw"' MPR #' ,map_number 2) same ine register 

5 format(" *,t8,a,i<compress4 (map_number)>,a,t24,28. ) 
endif 

| 
| 


DW780_MAPPING Igege zon= 138% 90: $f] 17 VAX=11 FORTRAN y3.4-56 Page 


-Sep-1 16 DISKSVMSMASTER: CERF .SRCJUBA.FOR; 1 


if ((pfn/2)*2 .eq. pfn) then 
eerie 10) Sy PAGE ADDRESS ° phfn/ee te 
< 


wn 
Ooo 


1 10 format(' ',t40,a, compress4 (pfn/2)>,aS 
¢ else 
uritetiyn, 15) "SBI PAGE ADDRESS ',(f { Maal 
5 15 format(' t t40,a, f<(compress4 (ptn/ 2)+ 13338) $ ’ 
endif 
006 endif 
0068 ; 
BOG? dpr = LibSextzv (21,4,mapping_register) 
0071 call Linchk (lun,1) 
oo7¢ 
th if (dpr .ne. 0) then 
0075 write(lun,20) *DATAPATH REGISTER #', oder," ..* 
0076 20 format(' *,t40,a,i<compress4 (dpr)>, 
of else 
0079 write(lun 25) "DIRECT DATAPATH' 
0080 25 format(' t40.a 
aie endif 
sat4 call output (lun,mapping_register,vimr,25,25,25,'0') 
0085 cot) sutout (Lun,mapping_register,v2mr,31,31,31,'0') 
en 
0087 
0088 return 
0089 


end 


DW780_MAPPING 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 1 
¢ SLOCAL 2 
MRD 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
DW780_MAPPING 


VARIABLES 
Address Type 
2-00000004 [4 
AP-0000000C@ 1*4 
2-00000000 [*4 


DPR 
MAPPING_REGISTER 
PFN 


ARRAYS 
Address Type 


-00000000 CHAR VIMR 12 
-0000000C CHAR V2MR 19 


Name Bytes 


LABELS 
Address Label 
1-00000067 3° 


Address’ Label 
1-00000073 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
I1*4 COMPRESS 


Type Name 
1*4 LIBSEXTZV 


VAX=11 FORTRAN bP 
DISKSVMSMASTER: CERF 


Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Address Type Name 
AP-00000004@ L*1 LUN 
2-00000008@8 1*4 MAP_NUMBER 
Dimensions 
(25:25) 
(37: 1) 

Address Label Address Label Address’ Label 
1-00000086 10° 1-00000094 15° 1-000000A3 20° 
Type Name Type Name 

LINCHK OUTPUT 


-56 
- SRCJUBA.FOR; 1 


Address 
1-00000081 


Page 17 


Label 
25" 


K 13 
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paar ri 90: 3ei te DISKSVMSMASTER: CERF .SRCJUBA.FOR;1 ° 


0001 | 
pons 
000 
tied subroutine dw750_mapping (lLun,map_number ,mapping_register) 
BF cw | 
0008 : This routine displays the 11/750 DW750 mapping register. | 
0010 
0011 
bots byte lun 
Sole integers4 map_number 
bor$ integer*4 mapping_register 
0018 integer*4 pfn 
0019 
0020 integers4 bdp 
0032 iheneet 4 
nteger* compress 

$098 . : 
0024 common ard 
B08? 
bo $ charactert12 vime (25:25) 
6038 common /mrd/ vimr 
ot 94 | 
oss character*19 v2mr (31:31) | 
o03¢ common /mrd/  v2mr 
003 
0034 
0035 
0036 call Linchk (lun,1) 
0037 
ts if (map_number .eq. -1) then | 
0040 write(lun,3) '''Dw'' MPR #222" ,mapping_register 
0041 3 format(' *,t8,a,t24,2z8.8) | 
poeg else 
Dose write(lun,5) *'Dw'' MPR #* ,map_number 2p snap ing. register 

5 format(' *,t8,a,i<compress4 (map_number)>,a,t24,28. ) 
BRe endif 
Boe if (LibSextzv (31,1,mapping_register) .eq. 1) then | 


pfn = LibSextzv (0,15,mapping_register) 
if (pfn .ne. 0) then 

call Linchk (lun,1) 

if ((pfn/2)*2 .eq. pfn) then 


5 
; 
8 
9 
0 
1 
g 
4 
5 
6 
7 


SS8sssss 


PAAAAMAY 


DW750_MAPPING 


: 
a 


S83sss 
Seesese 


s 
_N 
NO 


0078 
0079 


1 FORTRAN YB 826 
VMSMASTER:LERF .SRCJUBA.FOR;1 
E ADDRESS ',pfn/ 


15) "PAGE ADDRESS ',(flo 


{Spfny de." x" 
,t40,a, f<(compress4(pfn/2)+#2)>.1,a) 


SSsssssss 


bdp = LibSextzv (21,2,mapping_register) 
call Linchk (lun,1) 
if (bdp .ne. 0) then 


20) “BUFFERED DATAPATH REGISTER #',bdp,'.' 
-t40,a,i<compress4 (bdp)>,a) 


SSSsssssssss 


22) "DIRECT DATAPATH' 
t40,a) 


sss 


call output (lun,mapping_register,vimr,25,25,25,'0') 


cath cutout (Lun,mapping_register,v2mr,31,31,31,'0") 
en 


00; 
00: 
00, 
00, 
00; 
00' 
00: 
00' 
00: 
00! 
00: 
00' 
00: 
00: 
00: 
00: 
00: 
00: 
09 
it 
00' 
09 
; 

1 4 


So 
= 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


Name 
DW750_MAPPING 


BDP 
MAPPING_REGISTER 
MRD 


CHAR VIMR 


Address 


ARRAYS 
Address Type 
2-0000000¢ CHAR V2RR 
LABELS 
Address Label 
1-00000070 3° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4 


Type Name 


I*4 LIBSEXTZV 


Label 
1-0000007C 5° 


Bytes Attributes 
60 PIC CON REL LCL SHR EXE R 
19 PIC CON REL LCL SHR NOEXE R 
280 PIC CON REL LCL NOSHR NOEXE R 
4 PIC OVR REL GBL SHR NOEXE R 
31 PIC OVR REL GBL SHR NOEXE R 
1117 

Address Type Name 

AP-000000048 L*1 LUN 
am sth I*4 MAP_NUMBER 

-00000000 I*4 PFN 

Bytes Dimensions 


1 (G3: 5) 
1 (31:31) 


Address Label 
1-0000008F 10° 


Type Name 
LINCHK 


Address 
1-0000009D 


Type Name 
OUTPUT 


D NOWRT 
D T 


Label 
15° 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


— 


4-56 
RF.SR 


LONG 


Address Label 
1-000000AC 20° 


Page 20 
cquea.ror;1 28° ? 


Address’ Label 


1-000000BA 25° 


& 


leleleleleleleloleleleloelelelelelelelolelololelolelole) 
i a a a a 
Bm B® Bei off off oft 241 off efi off off off 211 OM OM I OM OM OM OP. OM 3 te et 
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N 
NERIISM QUGEHZ — MMGLAGRUTE 


Qn 


subroutine dw7zz_mapping (Lun,map_number ,mapping_register) 


See3eeses 


c++ 
: This routine displays the 11/7zz DW7zz mapping register. 
0010 
0011 
pols byte lun 
Bote integer*4 map_number 
Bote integer*4 mapping_register 
0018 integer*4 pfn 
0019 
Bese integer*4 compress4 
0092 common mrd 
00. 
003s character*12 vime (25:25) 
0026 common /mrd/  vimr 
0027 
0028 character*19 v2mr (31:31) 
S94 
0030 common /mrd/  v2mr 
0031 
tT 4 
003 
0034 call Linchk (lun,1) 
0035 
ite] if (map_number .eq. -1) then 
0038 write(lun,3) *'Dw'’ MPR #222" ,mapping_register 
0039 3 format(’ *,t8,a,t24,28.8) 
sre else 
Ones write(lun,5) ‘'DW'’ MPR #',map_number,'.' ,mapping_register 
004 5 format(' *,t8,a,i<compress4 (map_number)>,a,t24,28.8) 
poe endif 
goes if (LibSextzv (31,1,mapping_register) .eq. 1) then 
ne pfn = LibSextzv (0,15,mapping_register) 
sits if (pfn .ne. 0) then 
0082 call Linchk (lun,1) 
0084 if ((pfn/2)*2 .eq. pfn) then 
po38 write(lun,10) "PAGE ADDRESS ' Bini * a° 
57 10 format(' *,t40,a,i<compress4 (pfn/ §>-a) 


3.4=5 
DISKSVMSMASTER:CERF.S 


a OF 
| 


» Page 21 
RCJUBA.FOR;1 reign 


14 
DW7Z2Z_MAPPING 18-Sep-19 4 90 


9: 
-Sep-1984 4 


3 


1 
1 


BO98 else 

0060 yriteciyn, 15) ‘PAGE ADDRESS ',(flo {Spfnpo7¢, * 
0061 15 format('  tit.a. teleanpresehinte 73} )+2)>.1,a) 

Bpeg endif 

006 endif 

0064 

hoor call output (lun,mapping_register,vimr,25,25,25,'0") 
0067 call output (lun,mapping_register,v2mr,31,31,31,'0') 
0068 endif 

0069 

0070 return 

0071 

0072 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 466 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 121 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
SLOCAL 236 =—PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
SBLANK PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 MRD 31 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 858 
ENTRY POINTS 
Address Type Name 
0-00000000 DW7ZZ2_MAPPING 
VARIABLES 
Address Type Name Address Type Name 
AP-000000048 L*1 LUN AP-0000000C@ I*4 MAPPING_REGISTER 
§ -00000004a °i* MAP_NUMBER 3-00000000 I*4 MRD 
-00000000 I*4 PFN 
ARRAYS 
Address Type Name Bytes Dimensions 
4-00000000 CHAR VIMR \¢ (¢: 5) 
4-0000000C CHAR V2MR 1 (31:31) 


VAX=11 FORTRAN 


7 -4-56 
716 DISKSVMSMASTER: CERF .SRCJUBA.FOR; 1 


009 
005 
005 
005 
00S 
005 
005 


ee ed et et oe 
a. ee ee PRPS 


COOOCCOSCOOOOCOoooooo 


DW72Z_MAPPING 


1-0000003D 3° 1-00000049 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 


1*4 COMPRESSS 1*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=L1S$:UBA/0BJ=0BJ$:UBA MSRC$:UBA 
Ay Sab gery 


COMPILATION STATISTICS 


Dynamic Renory: 


VAX=11 ceive 


DISKSVMSMASTER: 


7 
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0 
) 
) 
0 
0 
0 
0 
0 
) 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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